' Try recursive calls to gosub (gs) for factorial b+ 2020-03-07
. Sorry only can do up to 18 or so when Exponential Notation takes over
[
	inpn (0 quits) enter a number to find it's factorial;factorialMe
	If eq[0,factorialMe]
		. Goodbye!
		End
	el
		' now that save is a command, can't use it as a variable
		savenum = factorialMe
		fac = 1
		GS F!\
		. savenum;! = ;fac
		.
	Fi
]
F!\
	If gt[factorialMe,1]
		fac = x[fac,factorialMe]
		factorialMe = s[factorialMe,1]
		GS F!\
	Fi
Rtn